home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #3 / Amiga Plus CD - 1998 - No. 3.iso / pd / daten / varchiv_v30 / hd-install.hd < prev    next >
Text File  |  1980-05-07  |  3KB  |  121 lines
  1.  
  2. (set progname    "VideoArchiv")
  3. (set progversion "3.0")
  4. (set progdir     "VideoArchiv_v3.0")
  5. (set diskname    "")
  6. (set user-level @user-level)
  7. (user 2)
  8.  
  9. (message (cat "\nWelcome to the installation utility of\n" progname
  10.               " " progversion " !\n\n"
  11.               "This utility installs the programme " progname
  12.               "\ncompletely on your harddisk.\n")
  13. )
  14.  
  15. (user user-level)
  16. (welcome)
  17.  
  18. (set progpath "")
  19. (set ok 0)
  20.  
  21.  
  22. (set user-level @user-level)
  23. (user 2)
  24.  
  25. (while (not ok)
  26.   (set progpath (askdir
  27.                 (prompt (cat "Where shall " progname " be installed?\n"
  28.                          "(A new directory called " progdir " will be created.)"))
  29.                 (help @askdir-help)
  30.                 (default progpath)
  31.                 (disk)
  32.                 )
  33.   )
  34.   (If (= (Exists progpath (noreq)) 0)
  35.     (
  36.     (message (cat "\nPath does not exist!\n\n"
  37.                   "Please select a valid Path."))
  38.     )
  39.     (
  40.     (If (= (Exists (tackon progpath progdir)) 0)
  41.       (
  42.       (set ok 1)
  43.       )
  44.       (
  45.       (message (cat "\nA Directory called " progdir " does already \n"
  46.                     "exist in your Path!\n\n"
  47.                     "Please select another Directory or delete\n"
  48.                     "the " progdir "-Directory from your\n"
  49.                     "selected Path."))
  50.       )
  51.     )
  52.     )
  53.   )
  54. )
  55. (set device (getdevice progpath))
  56. (set progpath (tackon progpath progdir))  
  57.  
  58.  
  59. (copyfiles (prompt "\nCopy Files... please wait.")
  60.            (help @copyfiles-help)
  61.            (source "")
  62.            (dest progpath)
  63.            (choices
  64.              "VA_Data"
  65.              "VA_Docs"
  66.              "VA_Schemes"
  67.              "Filmlist_Demo.vad"
  68.              "VideoArchiv_v3.0"
  69.            )
  70.            (infos)
  71. )
  72.  
  73.  
  74. (if (= (exists "Locale:" (noreq)) 2)
  75.   (
  76.     (set languages
  77.       (askoptions
  78.         (prompt "\nWhich languages should be installed?")
  79.         (help   @askoptions-help)
  80.         (choices
  81.           "English"
  82.           "Deutsch"
  83.           "Svenska"
  84.         )
  85.         (default 1)
  86.       )
  87.     )
  88.     (set n 0)
  89.     (while
  90.       (set language
  91.         (select n
  92.           "English"
  93.           "Deutsch"
  94.           "Svenska"
  95.           ""
  96.         )
  97.       )
  98.       (
  99.         (if (IN languages n)
  100.           (if (<> 0 n)   ; No catalog for english strings...
  101.             (
  102.               (set catalogs (tackon "Locale/Catalogs" language))
  103.               (set destination (tackon "Locale:Catalogs" language))
  104.               (makedir destination)
  105.               (if (exists (tackon catalogs "VideoArchiv_v30.catalog"))
  106.                 (copylib
  107.                   (prompt "Copy Translations...")
  108.                   (source (tackon catalogs "VideoArchiv_v30.catalog"))
  109.                   (dest destination)
  110.                 )
  111.               )
  112.             )
  113.           )
  114.         )
  115.         (set n (+ n 1))
  116.       )
  117.     )
  118.   )
  119. ) 
  120.  
  121.